## Loading required package: ggplot2
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout

Pharmazeutischer Unternehmer

pu <- read.csv2(file = "H:/amnog_datenbank/pu_ranking_2020-10-01.csv", header = T)

g <- plotly::plot_ly(pu, labels = ~`Pharmazeutischer.Unternehmer_cd`, values = ~`Anzahl.Verfahren`, type = 'pie',
                                    textinfo='label+percent',
               insidetextorientation='radial')
g <- g %>% add_pie(hole = 0.6)
g <- g %>% layout(
  showlegend = F,
         # legend = list(x = 500,y = 0.5),
         xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE)
         )
g
# fig <- 
#   e %>% 
#   plot_ly(y = therapiegebiet, histfunc='sum', type = "histogram")
# 
# fig

Therapiegebiet

 USPersonalExpenditure <- data.frame("Categorie"=rownames(USPersonalExpenditure), USPersonalExpenditure)
 data <- USPersonalExpenditure[,c('Categorie', 'X1960')]
# 
# fig <- plot_ly(data, labels = ~Categorie, values = ~X1960, type = 'pie')
# fig <- fig %>% layout(title = 'United States Personal Expenditures by Categories in 1960',
#                       xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
#                       yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))
# 
# fig

Including Plots

You can also embed plots, for example: